load.all_minmax <- function(inpath, patt) {
## inpath ist der Pfad bis zu, Ordner, in dem die Dateien liegen
## patt ist ein Pattern, das in allen Dateien, die man einlesen will, vorkommt.
  
  ## Files werden aufgelistet
  list <- list.files(inpath, pattern = patt, recursive = T)
  
  ## lapply-Funktion, um alle Dateien, die zuvor aufgelistet wurden, einzulesen, 
  ## daraus eine aggregierte Tabelle mit den Max-Werten pro Tag zu erstellen und
  ## sie dann in ein neues File speichern
  datalist_max <- lapply(1:length(list), function(i) {  
    dat <- read.table(paste(inpath, list[i], sep = "/"), header = T, sep = ","
                    , fill = T, stringsAsFactors=F)
    date <- as.character(dat[["Datetime"]])
    index <- list(substr(date, 9, 10))
    out_max <- aggregate(dat, by=index, max, na.rm=T)
    #print(out_max)
    out_max <- out_max[-1]
    ## Namen der Ursprungstabelle uebergeben
  #  names(out_max) <- names(dat)
  }) 
  
  write.table(x = datalist_max, 
  "F:/SpeziellePhysischeGeographie/eimar-vpspph-ws2011/wurst/src/output_max.txt",
              na = "NULL")
  
  
  
  ## lapply-Funktion, um alle Dateien, die zuvor aufgelistet wurden, einzulesen, 
  ## daraus eine aggregierte Tabelle mit den Min-Werten pro Tag zu erstellen und
  ## sie dann in ein neues File speichern
    
  datalist_min <- lapply(1:length(list), function(i) {
    dat <- read.table(paste(inpath, list[i], sep = "/"), header = T, sep = ",", 
                      fill = T, stringsAsFactors=F)
    date <- as.character(dat[["Datetime"]])
    index <- list(substr(date, 9, 10))  
    out_min <- aggregate(dat, by=index, min, na.rm=T)
    out_min <- out_min[-1]
    ## Namen der Ursprungstabelle uebergeben
   # names(out_min) <- names(dat)
  })

#comb <- c(datalist_max, datalist_min)
  print(comb)
write.table(x = comb, "F:/SpeziellePhysischeGeographie/eimar-vpspph-ws2011/wurst/src/output_min.txt")
  write.table(x = datalist_min, 
  "F:/SpeziellePhysischeGeographie/eimar-vpspph-ws2011/wurst/src/output_min.txt") 
}





###### http://r.789695.n4.nabble.com/max-number-from-a-list-of-numbers-td2225172.html